home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / exitwi / exitwin.bas < prev    next >
Encoding:
BASIC Source File  |  1992-12-20  |  1.2 KB  |  26 lines
  1. Option Explicit
  2. Global OnTop As Integer
  3.  
  4. ' Function Declarations
  5. Declare Sub SetWindowPos Lib "User" (ByVal Wnd%, ByVal WndInsertAfter%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal Flags%)
  6. Declare Function ExitWindows Lib "User" (ByVal Reserved&, ByVal ReturnCode%) As Integer
  7. Declare Function GetProfileInt Lib "Kernel" (ByVal ApplicationName$, ByVal KeyName$, ByVal Default%) As Integer
  8. Declare Function WriteProfileString Lib "Kernel" (ByVal ApplicationName$, ByVal KeyName$, ByVal AStr$) As Integer
  9. Declare Function GetSystemMenu Lib "User" (ByVal hWnd%, ByVal bRevert%) As Integer
  10. Declare Function RemoveMenu Lib "User" (ByVal hWnd%, ByVal nPosition%, ByVal Flags%) As Integer
  11. Declare Function WinHelp Lib "User" (ByVal hWnd%, ByVal lpHelpFile$, ByVal wCommand%, dwData As Any) As Integer
  12.  
  13. ' Constants
  14. Global Const EW_REBOOTSYSTEM = &H43, EW_RESTARTWINDOWS = &H42
  15. Global Const HWND_TOPMOST = -1, HWND_NOTOPMOST = -2
  16. Global Const MF_BYPOSITION = &H400
  17. Global Const HELP_CONTEXT = &H1
  18. Global Const APP_EXITWIN = "Exit Win", KEY_ONTOP = "OnTop"
  19. Global Const CHAR_RETURN = 13
  20. Global Const MOUSE_HOURGLASS = 11
  21. Global Const IDYES = 6, MB_QUESTIONYESNO = 36
  22. Global Const EXITWIN_HEIGHT = 330, EXITWIN_WIDTH = 485
  23. Global Const WS_NORMAL = 0
  24.  
  25.  
  26.